es:ES, v:, x:Id, e:{e:E| @loc(e)(x:)} , e':{e':E| eloc e' & (x after e') = v} .
((x when e) = (v) )
let e1 = next event in [e,e'] after which x =v in
let e1eloc e1 let & e''[e,e1).(x after e'') = (v) let & e''[e,e1].(x when e'') = (v) let & (x after e1) = v let & (x when e1) = (v)